home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pnl010.zip
/
MDP5A.EDL
< prev
next >
Wrap
Text File
|
1992-03-01
|
342b
|
16 lines
1,#d
tmdp5.pas
1
program mdp5a;
12
{$M 16384,0,0} {Note NO heap - TBuff now comes from DOS, NOT the heap}
14
uses crt,Textutl2, DosMem;
39
TBuff := ptr (DosMem.Alloc (TBuffSize * 64),0); { * 64 turns K into paras}
57
DosMem.Free (seg(TBuff^)); {not really needed, but here for looks.}
75
DosMem.Free (seg(TBuff^));
e